DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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-1984 15:4 DISKSVMSMAST 


MODULE s 
XTERWAL =LONG RELATIVE, 
RNAL=GENERALS) 


xo 
2~s 
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BEGIN 


] 
SRR REAR AA AERA AAAARAAERE REET EEE EERO TERETE AAAAAEARAEREREEEEEEES 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
‘es DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


® 
* 
® 
® 
: * 
1* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE haat OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF a & ABOVE COPYRIGHT N orice, THIS SOFTWARE OR ANY OTHER * 
1* COPIES THEREOF MAY NOT BE PRO VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. 7 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
*® 
!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
1* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 

| shaeeteeebessatnibnnnaekercesiabendeeakaimannreliabeueubenseenenes 
' 
'e¢ 
: FACILITY: Stand-alone command Language interface routines 
i ABSTRACT: 

These routines are used to enable a stand-alone 

image to obtain the command parameters and qualifiers 

from the command language interpreter. 
i ENVIRONMENT : 

VAX/VMS operating system. unprivileged user mode, 
i AUTHOR: Peter George, October 1981 


' 
] 
' 
' 
' 
' 
' 
‘ 
' 
' 
' 
' 
i Modified by: 
' 
‘ 
' 
' 
' 
' 
' 
‘ 
' 


v03-006 PCG0006 Peter George 17-Feb-1983 
Include INTDEF instead of CLIDEF. 
v03-005 Si poet Peter George 14-Dec-1982 


Allocate local descriptor Vee command string. 


v03-004 PCG0004 Peter George 29-Nov-1982 
Add argument to str$analyze_sdesc call. 


v03-003 PCG0003 Peter George 02-Nov-1982 


sesh" 


3 8 p38 1! 

3 9 059 1! 

; 60 060 1! 
is 6) 061 } : 
is. 6 $088 } ! 
is 65 045 1! 
i; 6.66 $ 13 
ls 67 006 ss 
3 68 443 1! 
ls 9 B08 1 !-- 
13 0 070 1 

3 71 0071 1! 

oe: 0072 1 

hee 00735 (1 

; 74 0074 1 

: 75 0075 #1 

Beme 0076 1 

: 77 0252 1 

s 78 025 1 


) 
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1hese -1984 32:5 VAX-11 Bliss-32 V4.0-74 F 
Weasel 88s PS FE:28 Nee enthlS tench sacSstacuinr.o3zn%e* as | 


Add CLISNEXT_ QUAL. Fix optional Length assignment 
in CLISGET_VALUE. Analyze input string descriptors. 


v03-002 PCG0002 Peter George 18-Oct-1982 
Add prompt argument to CLISDCL_PARSE. 
v03-001 PCG0001 Peter George 17-Sep-1982 


Use INT data structure. 
Add prompt and continuation routines to CLISDCL_PARSE. 
Add value address to CLISGET VALUE. 

Add user argument to CLISDISPATCH. 


LIBRARY 'SYSSLIBRARY:STARLET'; 
REQUIRE ‘SYSSLIBRARY:UTILDEF'; ! Common VMS BLISS definitions 
REQUIRE ‘LIBS: INTDEF'; ! Interface definitions 


i Include files 


arr 


F 
STACLINT 16S 
vousbo0 14S 


Table of contents 
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FORWARD ROUTINE 


EXTERNAL ROUTINE 
dcl$present, 
dcl$getvalue, 
dcl$dclparse, 
dcl$dispatch, 
dc l$nextqual, 
dcl$endparse, 
str$analyze_sdesc, 

H 4 beer 
Lib$free_vm, 
str$copy_dx; 

1 

; External message definitions 


EXTERNAL LITERAL 
cli$_nocomd, 
cli$_concat, 
cli$_comma, 

cli$_present, 

cli$_negated, 
cli$_locpres, 
cli$_ 
cli$_ 
cli$_ 


bsent; 


Determine if entity present 
Get value of entity 

Parse a command Line 

Dispatch to user processing routine 
Signal any unprocessed modifiers 

Get next qualifier 


Analyze input descriptor 
Allocate virtual memory 

Deallocate virtual memory 
Copy to any class string 


Prompt was ctrl/z-ed 

Value is concatenated 

Value is comma separated 

Entity is explicitly giebot ly present 
Entity is explicitly not gto ally present 
Entity is explicitly locally presen 
Entity is explicitly not locally present 
Entity is implicitly present 

Entity is implicitly not present 


a a ss es a a tn ss ss _as — 48 4 ss 
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18-s 3epn18ke 93:48:20 btecSumBmASFeRschCc sacSSTACLINT.B3204%" (34. 


GLOBAL ROUTINE cli$present (name) = 


! em 

i 

Determine if an entity is present on the command Line. 
i Inputs: 

name = Address of entity name descriptor 


i 
1 
1 
' 
i 
Outputs: 
1 
' 


routine value = True if present, else false. 


BEGIN 


LOCAL 

req. desc : ag sh x bel Li$c_reqdesc], ! Request descriptor block 
C Liss, workarea],! Result parse work area 

rea. flags : BI TVECT OR (32); "i Request flags array 


CHSFILL<® nets ee esc, req_desc); ' Zero request descriptor block 

req_desc Lint_b_fype] = cli$k-present; i Set request type 

req_desc Cint_t_ heey oi tekics vm; i Set address of get vm routine 

req. “desc Cint_ \-Ttreevm) LibSfrée_vm; i Set address of free vm routine 


Set entity name 
str$analyze_sdesc (.name, req_desc Cint_w entlen], req_desc Cint_l_entaddr]); 
RE TURN (dcelSpresent (req_desc, row, req_ “fTegs)); ! Call"DCL utility 


= FOPOPOPORORONONONoNoNoNonononony 3 2 oe 
m 


.TITLE STACLINT 
“IDENT \v04-000\ 

.EXTRN DCLSPRESENT, DCL$GETVALUE 
“EXTRN DCLSDCLPARSE, DCLS$DISPATCH 
“EXTRN DCLSNEXTQUAL p2GLSENDPARSE 
“EXTRN STRSANALYZE_ 

*EXTRN LIBSGET VAL “ties nee vm 
“EXTRN STRSCOPY_DX, CLI$_NOCOMD 
-EXTRN CLI$_CONTAT, tis: COMM 
SEXTRN CLISTPRESENT, CLIS_NEGATED 
“EXTRN CLISTLOCPRES, CLIS$~LOCNEG 
“EXTRN CLIS"DEFAULTED, CLTs. ABSENT 


-PSECT SCODES,NOWRT,2 


003c¢ 000 ENTRY ChISPRESENT Save R2,R3.R4,R5 : 0317, 
SE FF60 ce 9— 0000 MOV : | 
00 bE 06 2¢ att MOVCS #0, (SP); #0, #28, REQ_DESC 0339 
ft M8 saath BBP HEN RMBs ER Sfey cn Ae 
FB AD P bob005 0 9€ nites MOVAB CIBSFREE. vA, REG FEsce50 > 0342 


r-—-—_----- - ———— 


3007138e 99:98: o a VMSHASTERSCDCL vSRCSSTACLINT. p32:49° 33 | 


ss- 


; Routine Size: 67 bytes, 


000000006 00 


000000006 00 


Routine Base: 


. 
14- 
A 8 
mae a 
BF DD 6 ; 
08 AE 9F 000 
E4 AD 9F 00038 
03 FB 00038 
04 00042 


$CODES + 0000 


PUSHAB 


He STRSANALYZE _SDESC 


RPW 
REQ_DESC 
#3, DCLSPRESENT 


os 
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| STACLINT ib-se 1984 00:32:5 VAX-11 BL 
“Voesb00 1a-8ep-19 4 90:78:28 DISKSVMSM 
GLOBAL ROUTINE cli$get_value (name, retdesc, retlength) = 


>-—. 
nw 
=Q 
me 


| 
13 This routine is called to obtain the next value 
associated with a named entity on the command Line. 
Inputs: 


i 
i 
i 
i 
i 
: name = Address of entity name descriptor | 

: retdesc = Address of a return buffer descriptor 
retlength = Address of a longword to return the value 
' 

i 

i 

i 

i 

i 

i 


length ir 
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Outputs: 


True = A value was returned (there | be more). 
False = There is no more values associated with entity. 


OOCCCOCCOCOCOCO 


ooo OO 0900 09 09 09 09 CO OD 09 09 SII NI NIN NSN NIA AAA AOAAOOOOUUIUUIUMUTIN 
OOCOCOCOCOCSCOOCOCOCOCSOOCOOOCCOOOOOCOOOOOOCOOO 
AAA AA AA AAA AAA AAAI AANA AAAI WIA 
2 19 G9 C9 CD09 09 C8 SI NSINSI SIN NNN NNO 
NAME WN SD OONOUSWN "OOO 
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Ss 


ALL other errors are signaled. 


BEGIN 


P 
retdesc : REF BBLOCK; 


BUILTIN 
NULLPARAME TER; 


LOCAL 
req_.desc : BBLOCK pct {$c _reqdesc3 ! Request descriptor block 
rpw : BBLOCK cliss workareal,! Result parse work area 
req_flags : BITVECTOR (327, ' Request flags array 
copy_status, 
status; 


CHSFILL(O, cli$c_reqdesc 
req_desc Lint_b_ftype] = 
req_desc ine. | _getval = 
req_desc Cint_l_ 


' 
Set entity name 


q 4 ' Zero request descriptor block 

k-getvalue; ' Set reqsess type 

Sget_vm; ! Set address of get vm routine 
reevm) = LibSfree_vm; ! Set address of free vm routine 


OOOO OWDC 
MEW —O O00 


str$analyze_sdesc (.name, req_desc Cint_wentlen], req_desc Ci 
status = dc($getvalue (req_desc, rpw, req_flags);! CalT DCL ut 
! 

: If return length was requested, then find it now. 

iF NOT NULLPARAMETER (3) ' If return Length requested 


THEN (.retlength) <0,16> = ! then original estimate 
-req_desc Cint_w_retlen); : 


nt_l_entaddr]); 
iltty 


<o 


T 


ee ee De ce ec ee ee el ee el ee ce ee ee el ce ee ee ee ee el eet el ee 


IF NOT (copy aeatey = str$copy_dx (.retdesc, ' Copy result into return desc 
req_desc Cint_w_retlen])) : 


SSS ssl sss ss _ — 7 
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| J 
“STACLINT 16-Sep-1984 00:32:58 VAX=11 BLiss-32_V a 
vO4= a-80p-1986 99:45:20 DISKSYMEMASTERLDCL SRCISTACLINT.83201%" (4). 


; 4 106 THEN SIGNAL (.copy status); ! Signal any errors 
: 211 40 IF NOT NULLPARAMETER (3) ' If return Length requested 
; i¢ 208 THEN BEGIN i Then return correct value 
: 21 410 LOCAL temp : BBLOCK bdac8e _s_binj; i 
: 14 eat strSanalyze. — (.re esc. i Get la get estimate 
: 215 tig emp Cdsc$w_ Dae th], temp eas pelaearl) 
; 16 041 IF temp LSSU .retdesc Cdsc$w_l Length Return the smaller estimate 
: 21 0414 THEN (. retlength) <0,16> =". temp; : 
3 18 Bei? END; 
3 $9 bit? RETURN .status; 
: 1 416 END; 
007C 00000 eENTRY CLISGET_VALUE, Save R2,R3,R4,R5,R6 3; 0349 
56 veaee's tty oe 9E Be O8S MOVAB STRSANACYZE SD DESC, R6 : 
5E FF58 CE 9E 0000 MOV -168(SP), F 
1¢ 00 6E ‘ po 2c BR OnG MOVC #0, (SP), #0, #28, REQ_DESC 3; 0386) 
E4 AD 51 8F 90 00015 MOVB #81, REQ DESC : 0387. 
F4 AD 000000006 00 9E OOODIA MOVAB LIBS$GET mm. REQ_DESC+16 > 0388. 
F8 AD 00000000G 00 9E Bp OS4 OVAB LIBSFREE_VM, REG_DESC+20 ; 0389) 
FO D 9F OO02A PUSHAB REO DESC 12" 3 0394) 
EC AD 9F Bo0¢8 PUSHAB REQ DESC+8 3 
04 as DD 00030 PUSHL NAME 3 
66 03 FB 00033 CALLS #3, STRSANALYZE_SDESC $ 
SE DD 00036 PUSHL SP ; 0395 | 
10 AE 9F 00038 PUSHAB RP 3 
E4 AD 9F 00038 PUSHAB REG_DESC 3 
00000000G 00 03 fe 444 CALLS #3, DCLSGETVALUE d 
38 50 DO 0004 MOVL RO, STATUS 3 
0 6C 91 00048 CMPBs«CAP), : 0400 | 
OA iF Bebee BLSSU. _—‘'1$ F 
0c ag rf 004D TSTL 12 (AP) : 
05 13 00050 BEQL 1$ 3 
oc BC EC AD go B00 3s MOVW REQ =PEStse. @RETLENGTH 3; 040 
EC AD F 00057 1$: PUSHAB REQ -DESC+ ; 040 
08 AC ODD OOOSA PUSHL ag TOESt 3 
00000000G 00 Fe 005D CALLS #2, STRSCOPY_DX 3 
09 E 9064 LBS COPY ~STATUS. 2s : | 
DD 7 PUSHL COPY-STATUS 3; 0406. 
000000006 69 01 fe Bpn88 CALLS #1 CIG$S1GNAL 3 
0 6C 91 00070 28 CMPB «CC AP), > 0408 | 
1F 1F 0007 BLSSU 3$ Fs 
0c AC d 07 TSTL 12(AP) 2 
1A (1 8) BEQL 3$ 3 
AE 9F 7A PUSHAB TEMP+4 3 0412 | 
AE 9F 0007 PUSHAB TEMP 3 
AC DD 000 PUSHL RETDESC 3 
6 FB BS CALLS #5, STRSANALYZE_SDESC $ 
046 AE 08 BC 1 +4 CMPZ7V #0, #16, @RETDESC, TEMP 3; 0413 
4 00 BLEQU§ 3$ 3 
0c BC 04 AE B60 0008F OVW TEMP, @RETLENGTH : 0414 


LS ne 
a 


| sete 23 
“voesbdo" if: e919 99:78:28 DTSebimQaStenscbccsacdstacuiwt.e3204%° ey) 
50 52 pO 00094 38: MOvL STATUS, RO : 0417 


; Routine Size: 152 bytes, Routine Base: SCODE$S + 0043 
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-Sep-1 
GLOBAL ROUTINE cli$dcl_farse (command, tables, promptrtn, continrtn, prompt) = 


This routine can be called to parse a command Line. 

! Inputs: 

} command = address of descriptor of command string 

: tables = address of command tables 

: promptrtn = address of user missing parameter prompt routine 

4 continrtn = address of user Line continuation routine 

prompt = address of user prompt string descriptor 

Outputs: 

The command is parsed and the command work area is initialized. 
] 


BEGIN 
BUILTIN 
NULLPARAMETER; 
LITERAL 
elements = 4; 
LOCAL 
command_desc : BBLOCK Cdsc$c_s_bin], ' Local command descriptor 
rtnlist : BBLOCK [4*(elements+T)] ' Routine List 
req.desc : BBLOCK Eel i$c_reqdescd ' Request descriptor block 
rpw : BBLOCK (Ccli$c_workareal, ! Result parse work area 
req_flags : BITVECTOR (327; ! Request flags array 
CHSFILL(O, cli$c_reqdesc, req_desc); ! Zero request descriptor block 
req_desc Cint_b_ftype) = cli$k_dclparse; ! Set paoiee’ type d 
req_desc Cint_l_getvm] = Libsget_vm: ! Set address of get vm routine 
req_desc Cint_l_freevin) = LibSfree_vm; ! Set address of free vm routine 


IF BOT AL EERARE ERGY ! Set command Line descriptor 
strSanalyze_sdesc (.command, command_desc (Cdsc$w Length). 
command_desc Cdsc$a_poinfer]); 
roa. dene Cint_l_entaddr] = command_desc; 
req_desc Cint_l_tables] = .tables; ! Set address of command tables 


IF oy 1 eater OR NOT NULLPARAMETER(4) ! If prompt or continue routine 


reed my 4*(elements+1), rtnlist); ! Zero the List : 
rtnlist Cint_l istlen) ="elements; i Set number of elements in List 
req_desc Cint_T_list) = rtnlist; ! And connect it 


IF NOT NULLPARAMETER(3) 


4 9 
C > 


| 
| 
} 
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-Sep-1984 DISKSVMSMASTER:CDCL. Ske STACLINT.832;1 
7 THEN rtnlist Cint_|_promptrtn] = .promptrtn; ! Set address of prompt routine 
477 3 IF NOT NULLPARAMETERT4 "sue some my 
4 THEN rtnlist Lint b continrtn] = .continrtn; |! Set address of continue routine 
47 IF wor 7 NULLPARAMETERT J i Set nations. descriptor 
480 THEN strSanalyze_sdesc (.prompt, rtnlist Cint. w_pmptlen 
r 1 rtnlist Cint_l_pmpfaddrJ) 
. § — (dcl$dclparse (req_desc, rpw, req_flags));! Call DCL utility 


007¢ 00000 ENTRY CLISDCL_PARSE, Save R2,R3,R4,R5,R6 
56 000000006 00 9€ 900¢ MOVAB STRSANACYZE_SDESC, R6 
5e FF44 CE 9E 0000 MOV -188(SP), SP 
00 6E 00 2¢ 20045 mMOVCS #0, (SP), #0, #28, REQ_DESC 
C8 AD cg 8F 90 0001 MOVB #83, REQ DESC 
D8 AD 000000006 00 9€ OO01A MOVAB LIB$GET 0M, REQ_DESC+16 
DC AD 000000006 00 3 00 2 MOVAB LIBSFREE_VM, REG_DESC+20 
6C 95 0002A TSTB —- CAP) 
16 13 0002C BEQL «=s1$ 
04 AC 05 0002E TSTL  4¢AP) 
11 13 00031 BEQ. ~=séd1S; 
FC AD 9F 00033 PUSHAB COMMAND_DESC+4 
F8 AD 9F ts PUSHAB COMMAND_ “DESC 
04 AC DD 00039 PUSHL ee os 
66 03 FB 0003¢ CALLS #3, STRSANALYZE SDESC 
D4 AD F8 AD 9E 0003F OVAB COMMAND _D REQ DESC+12 
CC AD 08 AC DO 00044 18: MOVL ‘TABLES REG. “oes C+ 
03 6C 91 00049 PB P), #3 
05 1F 0004C BLSSU 2 
0c AC D5 0004E STL. 12 AP) 
OA 12 00051 BNEQ © 38 
04 6C 91 00053 2$ CMPB s«C AP), #4 
15 1F 00056 BLSSU 4$ 
10 ac 05 005 STL 16 (AP) 
10 13 00058 BEQL 4$ 
00 6E 00 2C 0005p 3s: MOVCS #0, (SP), #0, #20, RTNLIST 
E46 AD 0062 
E46 AD 04 DO 00064 MOVL #4, RTNLIST 
EO A E4 AD F 00 MOVAB RTAL TST REQ_DESC+24 
0 C D 4$: CMPB sé AP), «#8 
A iF 0 BLSSU 5 
oc ac 05 7 TSTL  12¢AP) 
05 1 7 BEQL 
E8 AD 0c AC 9 7 MOVL PROMPTRIN, RTNLIST+4 
04 € 91 0007C 5$ CMPB  s« CAP), #4 
A 16 OO07F BLSSU 
10 AC D 1 6(AP) 
05 1 BEQL 
EC hy 10 AC 3 MOVL CONTINRTN, RTNLIST+8 
0 6C 6$ (AP), #5 
11° «1F BLSSU 
16 AC DS 20( AP) 


Pa age 


} 


10. 
(5) | 
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N 1 
STACLINT 16-Sep-19 :32:5 VAX-11 Bliss-32 v4. Pa 1 
v04 14-Sep at 99: +8: 8 DISKSVMSMASTER: bei” she STACLINT.832;1 i%* (5 


oc 13 94 BEQL 7$ : 
F4 AD OF 9 PUSHAB RINLIST+1 ; aed 
FO AD 9F 0009 PUSHAB RTNLIST+1 3 0480 
14 as DD 00098 PUSHL PROMPT 3 
66 9 FB BRNe CALLS a3. STRSANAL YZE_SDESC F 
E oD Bea 7$: PUSHL ; 0483 
08 AE 9F 8 A3 PUSHAB fru 3 
C8 AD 9F O00A6 PUSHAB Q_DESC : 
009000006 00 03 FB OO0A9 CALLS i “DCLSDCLPARSE : 
04 00080 RET : 0484 


; Routine Size: 177 bytes, Routine Base: SCODES + 00DB 


POE tas 2 
STACLINT 18. $ep-1984 00:32:5 VAX-11 s-32 V4. Pa 12 
Bie 1e-Sep-19 4 90:78:28 DISK$V neh TER: (DCL. ORC SSTACLINT. 832;1 r. (6) 
: 390 485 1 GLOBAL ROUTINE cliSdispatch (argument) = | 
: 3% 4 § 1 tess 
a +, 488 1! 
> 296 rh? 1! This routine can be called to dispatch to ony verb processing 
; 95 sey : } routines if the command has the ROUTINE attribute. 
: $98 0492 1 | Inputs: 
: 298 Ree 1! 
: 44 bee : argument = address of user supplied argument to his own routine 
3 91 o33¢ ! Outputs: 
° -@ 
: i Bees : The verb routine is called (if any). 
; 05 0500 1! The status passed back from the routine is returned in RO. 
: $08 b203 ! Bs If no routine is specified, success is returned. 
: 308 $808 . 
; 309 3208 BEGIN 
: 310 505 
ey See 0506 BUILTIN 
: 216 $4.44 NULLPARAMETER; 
: 314 0509 2 LOCAL 
s 315 0510 req_ desc : naps eet Li$c_reqdesc], ! sem ty descriptor block 
; 316 0511 rpw cli$c-workareal,! Result parse work area 
; 318 Oai¢ req_ flags : BITVECTOR (327; i Request flags array 
: 19 0514 CHSFILL(O, cli$c_reqdesc, req_desc); ' Zero request descriptor block 
; 320 0515 req_desc Cint_b ae, = CLishe “dispatch; i Set re Sest type ‘ 
3 Be 0516 req_desc Lint_ t: hae Py Lib$Sget_vm; i Set address of get vm routine 
s 322 0517 req desc Cint_l resval = LibSfrée_vm; i Set address of free vm routine 
; 323 0518 2 IF NOT NULLPARARETER ( 
> 324 0519 THEN req desc (ihe l (ar © -argument; ! Set address of user argument 
3 325 0520 RETURN (dc tSdispatch Tréq_desc, rpw, req_flags));! Cail callback utility 
3; 326 0521 1 END; 
003c¢ 00000 .ENTRY CLISDISPATCH, Save R2.R3,R4,R5 : 0485 | 
SE FF60 43 9E B8086 MOV -160(SP), SP : 
1¢ 00 6E 4 . 2c babe MOVC #0, (SP), #0, #28, REQ_DESC 3 0514 
—4 AD 4 8F 90 Ddbe MOVB #84, REQ DESC : 0515 
F4 AD 000000006 00 9€ 0001 MOVAB LIBSGET_0M, REQ Dest eig : 0516 
F8 AD 000000006 00 9 901 MOVAB LIBSFREE_VA, REO_DESC+20 > 0517 
6c 9 TSTB (AP) ; 0518 
OA 1 0 BEQL 1$ : 
04 ag D 00 TSTL 4 (AP) : 
= 05 15 Q002A BEQL 1$ ; 
FO AD 04 AC OD C MOVL ARGUMENT, REQ_DESC+12 ; 051 
5 po 1 1$ PUSHL ae ; 082 
A F 3 PUSHAB F 
A oF PUSHAB ; 


C 
E : 
08 E 
E4 D REQ_DESC 


2 
18-Sep-1984 00:32:58 VAX=11 Bliss-32_v4.0=74 Page 13 
Ve-Sep-19B4 19:15:40 DISKSVMSMASTERSEDCL SRCSSTACLINT.63201°° Co} 
000000006 00 03 £8 90039 CALLS #3, DCLSDISPATCH 
04 00040 RET 


; Routine Size: 65 bytes, Routine Base: S$CODES + U18C 


; 0521 


dD 2 
STACLINT 16-Sep-1984 00:32:5 VAX-11 Bliss-32 V4.0-74 P 
voosb00 122808-1 384 99:78:2 DLEKSVMEMASTERSLDCL  SRCISTACLINT.B32. 
3 : ¢ ! GLOBAL ROUTINE cli$end_parse = 
3 1 y+ ae ie 
3 ¢ 5 8 1: This routine is called when the user has completed 
3 5 1! all command Line parsing. It checks that all qualifiers 
: 4 é 3 1! which appeared on the command Line were processed in one 
; 5 0 1! way or another by the utility. 
3 6 0530 1! 
: 7 0531 1 ! Inputs: 
; 8 05 ¢ y¥ 
; 339 5 1! None 
; 340 534 1! 
: 361 535 1 ! Outputs: 
; re 05 $ 1: 
; 05 i, None 
; 344 0538 1 !-=-- 
3; 345 0539 1 
> 346 0540 BEGIN 
> 347 0541 
> 348 b2%¢ LOCAL 
; 349 054 req.desc : BBLOCK TU ee eet. ! Request descriptor block 
; 350 0544 rpw : BBLOCK cliss workareal,! Result parse work area 
; 32 Beez req_flags : BITVECTOR (327; ! Request flags array 
; 385 0547 CHSFILL(O, cli$c_reqdesc, req desc); ! Zero request descriptor block 
> 354 0548 req_desc Eclisa_prsact = LibSget_vm; ! Set address of get vm routine 
3 Boe 0549 reg desc (cli$a_absact] = Lib$free_vm; ! Set address of free vm routine 
; 320 0550 RETORN (dct$Sendparse (req_desc, rpw, req_flags)); ! Call DCL utility 
3 Sov 0551 1 END; 
003c 00000 ENTRY CLISEND_PARSE, Save R2,R3,R4,R5 
5E FF60 CE 9%E 06002 OVAB <-160(SP), SP 
1C 00 - : 2c sd MOVCS #0, (SP), #0, #28, REQ_DESC 
F4 AD 00000000G 00 9E OODDE MOVAB LIBSGET_VM, REQ _DESC+16 
F8 000000006 00 9€E 00016 OVAB LIBSFREE_VM, REG_DESC+20 
5E 0D oes PUSHL SP 
08 AE 9F 000 ° PUSHAB RPW 
£4 ap 9F 000 PUSHAB BE0_DESE 
000000006 00 05 FB 00026 CALLS #5, DCLSENDPARSE 
04 0002D RET 


3; Routine Size: 46 bytes, Routine Base: $CODE$ + 01CD 


e 
9 


Bete Se Se Se Se Ge Ge Se Be Ge 


14 
(7) 


r PR Ae 
2 

STACLINT 1-56 1984 00:32:5 VAX-11 Bliss-32 V4.0-74 Page 15 
v04 0 12-Sep-19 4 99°98:2 DISKSVMSMASTERSLDCL SRCSSTACLINT.B32-4° (8) 
; Fe 05 g } GLOBAL ROUTINE cli$next_qual (name) = 

; 361 4 1 !--- 

: 36 es 

; 3 5 § 1! Move to the next command qualifier on the Line. 

: 364 22 1} 

: 365 5 8 1 ! Inputs: 

: 366 559 1! 

; 567 0560 1! name = Address of entity name descriptor 

: 368 0561 1! 

> 369 B26 1 ! Outputs: 

; BD bee 1! 
ls 371 564 1! routine value = True if present, else false. 

; 0565 1 !--- 

3; if 0566 1 

: 374 0567 BEGIN 

; 375 0568 

; 376 0569 MAP 

; 377 0570 name : REF BBLOCK; 

; 378 0571 

; wy O378 LOCAL 

: 380 057 req_.desc : BBLOCK cl f8c.reqdesc ! Request descriptor block 

; 381 0574 rpw: BBLOCK cliss workaread,! Result parse work area 

3 388 0379 reo_flags : BITVECTOR (327; ! Request flags array 

ae 0577 CHSFILL(O, cli$c_reqdesc, req_desc); ' Zero request descriptor block 
; we» 0578 req_desc Lint_b_fype) = cli$k-nextqual; ! Set ecquess type . 

; 386 0579 req_desc Lint_l_getvm] = ipeget ava: ! Set address of get vm routine 
; $65 Bees req_desc int_l_freevm] = Lib$Sfree_vm; ! Set address of free vm routine 
3; «4389 b28¢ ! Set entity name 

; 390 058 : 

; pe 0584 str$analyze_sdesc (.mame, req_desc Cint_w entlen], req. desc Cint_l_entaddr]); 

; 4 aH ¢ on (dcl$nextqual (req_desc, rpw, req_flags));! Calf DCL utility 


003c 00000 ENTRY CLISNEXT_QUAL, Save R2,R3,R4,R5 > 0552 
SE FF60 CE OE 9000¢ VAR -160(SP)> : 
1C 00 6E 00 2c 90007 MOVCS #0, (SP), #0, #28, REQ_DESC : 0577 
E4 AD 6 ar 90 0900 MOVB #85, REQ DESC : 0578. 
F4 AD 000000C0G 00 9E 001 MOVAB LIBSGET 0M, REQ _DESC+16 : 0579. 
F8 AD 000000006 00 9€ 0 O18 VAB_ -LIBSFREE_VM, REG_DESC+20 : 0580. 
FO AD 9F 000 SHAB REQ_DESCT12 > 05864 | 
EC AD 9F 00026 PUSHAB REQ~DESC+8 : 
4 AC DD 00029 PUSHL ; 
000000006 00 FB 00 CALLS #3, STRSANALYZE_SDESC : 
E pp 0 PUSHL SP > 0585 
08 AE OF 00 PUSHAB RPW : 
000000006 00 a " Pb $0 CALLS Fe. -DELSNEXTQUAL ; 
04 0048 RET > 0586 


eee 


-B32; 


VAX-11 Bliss-32 V4.0-74 


F 2 
12x860=1382 99:78:28 DISKSVMSMASTER:CDCL. SRCISTACLINT 


NT 


STAC 
V04 


67 bytes, Routine Base: SCODES + O1FB 


; Routine Size: 


sec 


un Time 
hey tinct 00: 59° 7 
Lines/CPU Min: 3207 
ponensed ry oa 19881 
cy Me 95 pages 
— ation Complete 


Size: 574 code 3 0 data bytes 


00: 38:3 VAX-11 Bliss-32 V4.0-7 
15:4 DISK AK SVNER TER: cbei sac STACLINT. B32. 79° 


: 395 S87 1 END 
: 396 nt 0 ELUDOM 
~EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name 
: SCODES 574 NOVEC,NOWRT, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: Pages Processing 
3 File Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 581 00:01.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=L1S$:STACLINT/OBJ=0BJ$:STACLINT MSRC$:STACLINT/UPDATE=(ENH$:STACLINT) 


Aly 
9) 
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